COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	
C00004 ENDMK
C⊗;

BEGIN "TEST"
	DEFINE SUBR="SIMPLE INTEGER PROCEDURE";

	INTEGER B3,B1,B2,N,SN,K,CHR;
	REAL Y,ANG;
	DEFINE π="3.14159265";
	STRING STR;
	REQUIRE "GEOMES.HDR[CMS,LCS]" SOURCE_FILE;

SIMPLE REAL PROCEDURE FUNC;
  BEGIN
	REAL X;
	X←ANG*2*π/N;
	RETURN(X);
  END;

SUBR COPY;
  BEGIN
	B2←MKCOPY(B1);
	BATT(B2,B3);

	ROTATE(B2,0,0,ANG);

	IF (ANG←FUNC)>2*π THEN SN←N
	ELSE SN←SN+1;

	TRANSL(B2,0,-Y,0);
	B3←B2;
  END;



	OUTSTR("
	NUMBER OF BODYS = ");
	N←CVD(INCHWL);

	OUTSTR("
	RADIUS = ");
	STR←INCHWL;
	IF LENGTH(STR) THEN Y←REALSCAN(STR,CHR)
	ELSE Y←2;

	SN←0;

	ANG←2*π/N;

	MKUNIV;GEODPY;

	B1←INB3D("DOWEL.B3D");
	
	WHILE SN≠N DO COPY;

	GEOMED;

END "TEST";